home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS077A.dsk / GARBAGE.bas < prev    next >
BASIC Source File  |  2012-02-16  |  806b  |  29 lines
  1. 0  GOTO 1000
  2. 100  REM  READ KEYBOARD
  3. 102 X =  PEEK( -16384)
  4. 104  POKE  -16368,0
  5. 106  IF X >127  THEN  GOSUB 200
  6. 109  RETURN 
  7. 200  REM  SPEED
  8. 202  IF X = 211  THEN Y = Y *2: REM 'S'PEED
  9. 204  IF X = 198  THEN Y = Y/2: REM  'F'AST
  10. 206  IF X = 197  THEN  END : REM 'E'ND
  11. 208  IF Y <1  THEN Y = 1
  12. 209  RETURN 
  13. 500  REM  INSTRUCTION WINDOW
  14. 502  POKE 34,22: REM  SET TOP
  15. 504  FLASH : PRINT "F-FASTER:S-SLOWER:E-END": NORMAL 
  16. 506  POKE 34,0: POKE 35,22: HOME 
  17. 509  RETURN 
  18. 1000  REM  FILL THE SCREN WITH         GARBAGE
  19. 1005  GOSUB 500: REM  SET WINDOW
  20. 1010  FOR I = 1 TO 1000
  21. 1020  FOR J = 1 TO 1000
  22. 1030  PRINT  CHR$( INT( RND(1) *256));
  23. 1032  FOR K = 1 TO Y: NEXT K
  24. 1035  GOSUB 100: REM  READ KEYBOARD
  25. 1040  NEXT J: NEXT I
  26. 1099  END 
  27. 2000  REM  FROM THE CORE 
  28. 2001  REM  MAR'81 PG 7
  29. 2002  REM  BY ALEX WHITTAKER